home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / workbench+shell / a-f / a-start / a-startinstall < prev    next >
Text File  |  1996-03-11  |  3KB  |  133 lines
  1. ;******************** A-Start v0.5B install-script *******************
  2.  (set MSG_SPACE "\n\n\nWelcome A-Start v0.72 (c) Tuomas Artman/vPS.\n\nEnjoy this voidParrot Software product.\nPlease remember that this is only a preview version\nand has therefore only a limited number of functions.\nFull A-Start 1.0 version will be released as soon as possible!\n")
  3.  (set MSG_DESTINATION "Where would you like A-Start to be installed?\nThe installer will create a directory called\nA-Start in the chosen path.")
  4.  (set MSG_COPYING "Copying A-Start-files to %s.")
  5.  (set @abort-button "Abort installation.")
  6.  (set MSG_THANKS "\n\n\n\nThank you for using a vPS-product!\nPlease support the author!")
  7.  (set MSG_WBS "\n\n\n\nDo you want A-Start to be started\non every boot-up?\n")
  8.  (set FSource)
  9.  (set Msg_run "\n\n\n\n\nDo you now want to configure A-Start?\nBe adviced that A-StartPrefs needs MUI!\n")
  10. (set osversion  (/ (getversion) 65536))
  11. (if (>= osversion 39)
  12.    (set guide_reader "MultiView")
  13.    (set guide_reader "AmigaGuide")
  14. )
  15.  
  16. (set installed "")
  17.  
  18. (complete 0)
  19. (message (MSG_SPACE ))
  20.  
  21. (set dest_dir
  22.    (askdir (prompt (MSG_DESTINATION))
  23.          (help @askdir-help)
  24.          (default @default-dest)
  25.          (newpath))
  26. )
  27.  
  28. (set dest_dir (tackon dest_dir "A-Start"))
  29. (set @default-dest dest_dir)
  30. (complete 20)
  31.  
  32. (copyfiles  (help @copyfiles-help)
  33.           (source "A-StartPrefs")
  34.           (dest "Sys:Prefs")
  35.           (infos)
  36. )
  37. (complete 40)
  38. (copyfiles  (help @copyfiles-help)
  39.           (source "A-Start")
  40.           (dest @default-dest)
  41.           (infos)
  42. )
  43.  
  44. (copyfiles  (help @copyfiles-help)
  45.           (source "A-Start.prefs")
  46.           (dest "Env:")
  47. )
  48.  
  49. (copyfiles  (help @copyfiles-help)
  50.           (source "A-Start.prefs")
  51.           (dest "EnvArc:")
  52. )
  53.  
  54.  
  55. (complete 60)
  56. (copyfiles  (help @copyfiles-help)
  57.           (source "Docs")
  58.           (dest (tackon @default-dest "Documentation"))
  59.           (all)
  60.           (infos)
  61. )
  62.  
  63.  
  64. (complete 70)
  65.  
  66. (tooltype (dest "A-StartWBS")
  67.         (settooltype "ASPATH" @default-dest)
  68. )
  69.  
  70.  
  71.  
  72. (if
  73. (askbool  (prompt MSG_WBS)
  74.         (default 1)
  75.         (help "If you choose 'YES', the installer will copy A-StartWBS to the 'Sys:WBStartup'-dir. A-StartWBS is a very small program, which launches the A-Start-main-program via the specification of A-Start's path in the ToolTypes of the icon of A-StartWBS.\nConfused? Just press 'Yes'!")
  76. )
  77.   (copyfiles  (help @copyfiles-help)
  78.           (source "A-StartWBS")
  79.           (dest "Sys:WBStartup")
  80.           (infos)
  81.   )
  82.  
  83.   (copyfiles  (help @copyfiles-help)
  84.           (source "A-StartWBS")
  85.           (dest @default-dest)
  86.           (infos)
  87.   )
  88.  
  89. )
  90.  
  91.  
  92.  
  93. (complete 80)
  94. (copyfiles  (help @copyfiles-help)
  95.           (source "Docs.info")
  96.           (newname "Documentation.info")
  97.           (dest @default-dest)
  98. )
  99.  
  100.  
  101.  
  102. (if (exists "/A-Start.info")
  103.   (copyfiles  (help @copyfiles-help)
  104.           (source "/A-Start.info")
  105.           (dest (pathonly @default-dest))
  106.   )
  107.  
  108. )
  109.  
  110. (complete 90)
  111.  
  112. (makedir (tackon @default-dest "Caches"))
  113. (makedir (tackon @default-dest "Utils"))
  114.  
  115.  
  116. (complete 100)
  117.  
  118. (if (exists (tackon @default-dest "A-Start.guide.info") (noreq))
  119.    (
  120.      (tooltype   (dest (tackon @default-dest "Documentation/A-Start.guide"))
  121.                (noposition) (setdefaulttool guide_reader))
  122.    )
  123. )
  124.  
  125. (run "run Sys:Prefs/A-StartPrefs"
  126. (confirm)
  127. (prompt Msg_run)
  128. (help "You may now start A-StartPrefs to configure your version of the main program. A-StartPrefs will not work, if you do not have MUI 2.2+ installed.")
  129. )
  130.  
  131.    (exit (MSG_THANKS))
  132.  
  133.